home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GAMES.ARC / -3-D ZOOM! (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.7 KB  |  150 lines
  1. 10 V(0)=173:V(1)=2:V(2)=221:V(3)=9:V(4)=3:C=0:L=5:AD=36864
  2. 15 IFPEEK(AD+C)<>V(C)THEN30
  3. 20 C=C+1:IFC<>LTHEN15
  4. 25 GOTO35
  5. 30 LOAD"SUPER MISTER",8,1
  6. 35 POKE53281,0:POKE53280,11:SYS39890
  7. 40 SYS37018:TI$="000000"
  8. 45 PRINT"[147][142][150][153] 3-D ZOOM! [150]"
  9. 50 PRINT"MADE IN 1988, AND UPGRADED 1991 BY"
  10. 55 PRINT"MARK D. REJHON. USES THE  SUPER MISTER [146]"
  11. 60 PRINT"RESCALING GRAPHICS SYSTEM!"
  12. 65 PRINT"SUPER MISTER 1990 BY MARK D. REJHON."
  13. 70 TI$="000000":SYS37018:GOSUB10700
  14. 75 IFTI$<"000006"THEN75
  15. 80 RESTORE:POKE198,0:PRINT"[147][142][150]ENTER A NUMBER BETWEEN"
  16. 85 PRINT"[153] 1 [146][150]=SLOW AND [153] 5 [146][150]=FAST"
  17. 90 GETA$:IFVAL(A$)<1ORVAL(A$)>5THEN90
  18. 95 J=VAL(A$):ZZ=1+J/20:PRINT"[147]"
  19. 100 SYS37300,0,5,7,2:POKE646,PEEK(40931)+8:GOSUB10600:SYS37000
  20. 110 PRINT" 3-D ZOOM ":PRINT"    BY    ":PRINT"   MARK   ":PRINT"  REJHON  "
  21. 120 PRINT"1988, 1991":SYS38718:C=1
  22. 130 FORA=0TO4:FORB=0TO9:SYS38718,PEEK(1024+A*40+B),C:NEXT:C=C+1:IFC=4THENC=1
  23. 140 NEXT:S=63
  24. 150 S%=S:SYS37578:SYS38808,10,5,40-S%*10,21-S%*5,S%*2
  25. 160 S=S/1.1:IFS>4THEN150
  26. 170 SYS37578:SYS38808,10,5,0,1,8:SYS37578
  27. 250 FORA=1TO10
  28. 260 SYS37300,0,5,7,2:FORB=1TO50:NEXT
  29. 270 SYS37300,0,7,2,5:FORB=1TO50:NEXT
  30. 280 SYS37300,0,2,5,7:FORB=1TO50:NEXTB,A
  31. 310 GOSUB10500
  32. 320 GOSUB10000
  33. 990 O=1:XX=2
  34. 1000 X%=18:Y%=16:S%=2:O%=0:Q=254:H%=0
  35. 1010 SYS37300,0,10,13,4:SYS37484,0:SYS37578
  36. 1020 SYS38652,X%,Y%,ML%,8,1:SYS37578:SYS38652,X%,Y%,ML%,8,1
  37. 1030 V%=0:Z=1:ONOGOSUB10200,10100
  38. 1050 D%=NOTPEEK(56320)AND15
  39. 1100 OND%GOSUB1110,1120,1115,1130,1150,1160,1115,1140,1170,1180:GOTO1200
  40. 1110 IFY%>2THENY%=Y%-S%
  41. 1115 RETURN
  42. 1120 IFY%<40THENY%=Y%+S%
  43. 1125 RETURN
  44. 1130 IFX%>2THENX%=X%-S%
  45. 1135 RETURN
  46. 1140 IFX%<70THENX%=X%+S%
  47. 1145 RETURN
  48. 1150 GOSUB1110:GOSUB1130:RETURN
  49. 1160 GOSUB1120:GOSUB1130:RETURN
  50. 1170 GOSUB1110:GOSUB1140:RETURN
  51. 1180 GOSUB1120:GOSUB1140:RETURN
  52. 1200 IFZ>45THENSYS38652,X%,Y%,ML%,8,1
  53. 1220 Z%=Z:SYS39052,40-Z%,25-Z%,0,Z%*2
  54. 1230 IFZ>45ANDV%=0THENV%=1:GOSUB10300:IFH%THEN5000
  55. 1260 IFZ<45THENSYS38652,X%,Y%,ML%,8,1
  56. 1270 Z=Z*ZZ:SYS37578
  57. 1280 IFZ<60THEN1050
  58. 1285 O%=O%+1:IFO%=12THEN1300
  59. 1290 GOTO1020
  60. 1300 SYS37402,PEEK(40933):FORA=1TO1000:NEXT
  61. 1305 FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,3:NEXT
  62. 1310 FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,0:NEXT
  63. 1320 GOSUB10600:SYS37484,0:SYS37300,0,3,7,4:POKE646,PEEK(40931)+8:T=1.4
  64. 1325 IFXX=7THEN1500
  65. 1330 PRINT"[147]EXCELLENT":PRINT"  PLAY!  "
  66. 1340 C%=0:FORA=0TO1:FORB=0TO8:CH%=PEEK(1024+A*40+B):C%=C%+1:IFC%=4THENC%=1
  67. 1350 S=63:IFCH%=32THEN1380
  68. 1355 XP%=8+B*8:YP%=8+A*8
  69. 1360 S%=S:SYS37638,3:SYS38330,XP%-S%,YP%-S%,CH%,S%*2,C%:S=S/T:IFS>4THEN1360
  70. 1370 IFS<4ANDS*T>4THENS=4:GOTO1360
  71. 1380 SYS37638,3:SYS38330,XP%-4,YP%-4,CH%,8,C%:SYS37498,PEEK(40933),3
  72. 1390 NEXTB,A
  73. 1400 PRINT" PREPARE ":PRINT"FOR MORE!":C=1:SYS38718
  74. 1410 C=3:FORA=0TO1:FORB=0TO8:SYS38718,PEEK(1024+A*40+B),C:NEXT:C=1:NEXT
  75. 1420 FORA=50TO24STEP-1:SYS37638,3:SYS38808,9,2,4,A,8:NEXT
  76. 1460 O=2:XX=XX+1
  77. 1470 GOSUB10500:GOSUB10000:GOTO1000
  78. 1500 SYS37300,0,8,13,14:POKE646,PEEK(40931)+8:SYS38718
  79. 1510 A$="WOW! SUPER PLAY!":PRINT""A$;:L%=POS(.):C%=1
  80. 1520 FORA=0TOL%-1:CH%=PEEK(1024+A):IFCH%=32THENC%=C%+1:IFC%=4THENC%=1
  81. 1530 SYS38718,CH%,C%:NEXT:SZ%=24
  82. 1540 FORA=80TO-SZ%*L%STEP-1:SYS37578:SYS38808,L%,1,A,14,SZ%:NEXT
  83. 1550 SYS37484,0:FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,3:NEXT
  84. 1560 FORA=0TO25:SYS38192,25-A,25-A,30+A*2,A*2,A/4:NEXT
  85. 1570 FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,1:NEXT
  86. 1580 FORA=0TO25:SYS38192,25-A,25-A,30+A*2,A*2,(AAND1)+2:NEXT
  87. 1590 FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,2:NEXT
  88. 1600 FORA=0TO25:SYS38192,25-A,25-A,30+A*2,A*2,A/2:NEXT
  89. 1610 FORA=25TO0STEP-1:SYS38192,25-A,25-A,30+A*2,A*2,(AAND1):NEXT
  90. 1620 FORA=0TO25:SYS38192,25-A,25-A,30+A*2,A*2,0:NEXT
  91. 1630 SYS37300,0,15,13,2:POKE646,PEEK(40931)+8:SYS38718:C%=1
  92. 1640 PRINT" MISSION ":PRINT"COMPLETE!"
  93. 1650 FORA=0TO1:FORB=0TO8:C%=C%+1:IFC%=4THENC%=1
  94. 1660 SYS38718,PEEK(1024+A*40+B),C%:NEXT:NEXT
  95. 1670 FORA=50TO10STEP-1:S%=(62-A)/6:SYS38808,9,2,40-S%*4.5,A,S%:SYS37578:NEXT
  96. 1680 SYS38808,9,2,4,10,8:SYS37498,PEEK(40933),3
  97. 1690 C%=1:FORA=0TO1:FORB=0TO8:C%=C%+1:IFC%=4THENC%=1
  98. 1700 S=4:CH%=PEEK(1024+A*40+B):IFCH%=32THEN1730
  99. 1710 SYS37402,3:XP%=8+B*8:YP%=14+A*8:SYS38330,XP%-4,YP%-4,CH%,8,0:SYS37638,3
  100. 1720 S%=S:SYS38330,XP%-S%,YP%-S%,CH%,S%*2,C%:SYS37638,3:S=S*1.2:IFS<63THEN1720
  101. 1730 SYS37638,3:NEXTB,A
  102. 1750 PRINT"[147]":GOSUB10700:SYS37018:GOTO80
  103. 4995 END
  104. 5000 SYS37498,PEEK(40934),3:SYS37638,3:S%=8:X%=X%+4:Y%=Y%+4
  105. 5010 SYS37300,0,2,10,7:S%=4
  106. 5020 SYS37638,3:SYS39052,X%-S%,Y%-S%,1,S%*2:S%=S%+1:IFS%<63THEN5020
  107. 5100 GOSUB10700:SYS37438,PEEK(40933):PRINT"[147]":SYS37018:FORA=1TO300:NEXT:GOTO80
  108. 9995 END
  109. 10000 POKE820,24:POKE821,24:POKE822,24:POKE823,90
  110. 10010 POKE824,126:POKE825,126:POKE826,255:POKE827,102:ML%=820
  111. 10020 RETURN
  112. 10100 FORA=0TO8:P(A)=0:NEXT
  113. 10105 FORA=0TOXX
  114. 10110 A1=INT(RND(1)*3):A2=INT(RND(1)*3):IFP(A1+A2*3)THEN10110
  115. 10120 P(A1+A2*3)=1:NEXT:GOTO10210
  116. 10200 FORB=0TO8:READP(B):NEXT
  117. 10210 SYS37402,2:SYS37438,2
  118. 10220 SYS38192,0,3,16,10,3:SYS38192,1,4,14,8,3
  119. 10230 FORA=0TO2:FORB=0TO2
  120. 10240 SYS37858,2+B*4,5+A*2,4,2,P(A*3+B)*2:NEXT:NEXT
  121. 10250 SYS39712,0,0,0:RETURN
  122. 10300 SYS37758,X%+3,Y%+1:IFPEEK(Q)AND2THENH%=1:RETURN
  123. 10310 SYS37758,X%+4,Y%+1:IFPEEK(Q)AND2THENH%=2:RETURN
  124. 10320 SYS37758,X%,Y%+6:IFPEEK(Q)AND2THENH%=3:RETURN
  125. 10330 SYS37758,X%+7,Y%+6:IFPEEK(Q)AND2THENH%=4:RETURN
  126. 10340 RETURN
  127. 10500 POKE646,PEEK(827)+8:PRINT"";
  128. 10520 PRINT" PRESS FIREBUTTON TO PLAY [146]":POKE646,PEEK(827)
  129. 10530 SYS37032,0,23,0:WAIT56320,16,16:GOSUB10600:PRINT"[147]":SYS37000
  130. 10535 FORA=1TO20:WAIT56320,16:NEXT
  131. 10540 RETURN
  132. 10600 FORA=0TO3:SYS37438,A:NEXT:SYS37484,0:RETURN
  133. 10700 SYS37402,2:SYS37438,2
  134. 10710 FORA=1TO80:SYS37654,INT(RND(1)*16),INT(RND(1)*16),1:NEXT
  135. 10720 FORA=1TO80:SYS37654,2+INT(RND(1)*12),2+INT(RND(1)*12),2:NEXT
  136. 10730 FORA=1TO60:SYS37654,4+INT(RND(1)*8),4+INT(RND(1)*8),3:NEXT
  137. 10740 SYS39712,0,0,1:RETURN
  138. 30000 DATA 0,0,0,1,1,1,1,1,1
  139. 30010 DATA 1,1,1,0,0,0,0,0,0
  140. 30020 DATA 0,0,0,0,1,0,1,1,1
  141. 30030 DATA 1,1,1,0,0,0,1,1,1
  142. 30040 DATA 0,1,0,1,1,1,0,1,0
  143. 30050 DATA 1,0,1,0,0,0,1,0,1
  144. 30060 DATA 1,1,1,0,1,0,1,1,1
  145. 30070 DATA 1,0,1,1,1,1,1,0,1
  146. 30080 DATA 0,1,0,1,0,1,0,1,0
  147. 30090 DATA 1,0,1,0,1,0,1,0,1
  148. 30100 DATA 1,1,1,1,0,1,1,1,1
  149. 30110 DATA 1,1,1,0,0,0,1,1,1
  150.